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DOOMED? 


Although the PC 1500 is less than 3 years old, it seems to be 
on the verge of obsolence. Few shops stock it; those that have 
done so are selling remaining stocks off cheaply - sometimes 

at less than half-price. The PC 1500A is flourishing in USA. 

Will SHARP (UK) market it over here? I wish I knew: it is no 
use asking SHARP. (Indeed, if any subscriber remains on 

friendly terms with this weird organisation, would he try and 
find this out from them, ond let me know?) The TANDY PC 2 is 
olready, as we know, out of production. When the PC 1500 

first appeared, it received more unqualified praise thon any 

other computer before or since, ond it is sad that it has 
languished in this country, mainly owing to the lack of 

support and competent marketing from SHARP (UI 
Meanwhile STATUS 1500 also is not without difficulties. For 
the first time, the steady stream of new subscribers has 
dwindled to a trickle. As time goes on, natural wastage will 
no longer be replaced, and the total number of subscribers 
will decrease. Fortunately, we have not reached this stage yet. 


Interestingly, an early experiment with EASITREND predicted a 
peak about this time, but the forecast was rejected because it 
was not based on a sufficiently large sample of data. 

The newsletter started life with just 23 subscribers. It will, 

I hope, be a very long time until we are reduced below that level. 
Until that time, we shall do our best to carry on. 


LAST MINUTE NEWS: A reliable source informs me that SHARP have just 
decided to market both the CE 161 and the PC 1500A in UK, and 

that these should be released here very shortly. It will be 

interesting to see the prices. SHARP also intend to renew their 

support for Pocket Computers with an intensive sales campaign. 

For my opinion of such a project, see the editorial in the 

July issue lost year. I hope that this time I am wrong. Since 

the sales-monager in charge is more experienced, and less 

bombastic than his predecessors, perhaps there is a chance. 
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SIGNALS 


Gone, gone are the days when every post brought letters praising 
this newsletter. Yet it is (I think) as good as ever, if not better. 
Perhaps now you have all come to toke its excellence for granted. 
However, June oppears to be ‘Have a Go at the Editor’ month. 


C.P.UNDERWOOD reproves me for not appreciating the suggestion last month 
from A.E.L.COX about dispensing with terminal quotes. He points out 
that this is a great timesaver when entering commands from the keyboard. 
He adds that leaving out terminal quotation marks in SUPERTEXT (B) 
would create space for 2 extra lines of text. 
Alright! you win! But all the same, the system does give rise to the 
most terrible bugs sometimes. How would you distinguish between: 


GOTO "A 
and 
GOTO "A 


The former will run OK: the latter will give ERROR 11. The difference 
is completely invisible both on LLIST and LIST, and only by running 

the cursor over the line to the end of the second example can you 
detect the unwanted space after "A 


In reply to this, A.E.L.COX asks why one should have a 2-chr. label 
with a space. 


Why indeed should one have any bug or any error in a program which is 
being developed? But most of us do. Mony of us are in the habit of 
deleting with a SPACE (1 keystroke) instead of SHIFT//DEL 

(2 keystrokes) while writing programs: and this is fine except during REMs 
or between inverted commas, when SHIFT//DEL must be used. The point 
is that the omission of the final quotation marks can allow on error to 
be invisible. 


A.E.L.COX also points out an error on page 25, in the 
CLOCK/CALENDAR program. He says that line 70 should read: 


70: IF Fel IF T>13 LET T=T-12 
Your line too is erroneous. Surely you mean: 
IF Fel IF T>=13 LET T=T-12 


ALLAN THOMAS chides me for an error in the variable-changing program 
(see page 23 and poge 35). He says that no provision is made for 
protecting HEX numbers from being disostrously changed. 


Quite right. I never use HEX except in the preparation of m/c 

routines, at the beginning of a program, and would never expose this section 
to automatic variable changing. If you introduce the protection you 

suggest, the routine will run even more slowly. For some purposes it 

is easier, not to have a compendious standard utility, but just to ‘run 
something up' for the occasion. The original article was intended to 
illustrate some of the snags in doing so. 


.GAUTON has hod some teething troubles with the TRAMSOFT TOOL-2. 
He has cured them by allowing the tape to run an inch or two before 
FSAVE/FLOAD and again when the operation ends. 


I have not found this necessary. It does sound os if you may have some 
trouble with the motor of your cassette-recorder. Another suggestion, 
that we should standardise our equipment, is ideolistic rather than 
practical. Some readers have no trouble at all with non-standard 
equipment: others have trouble with standard equipment. All these 
consumer products suffer variously from wear-and-tear: heads go out of 
alignment: motors slow up: even the electronic bits can deteriorate. 


J. 


zn 
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PEEK POKE & MEMORY - XV 
~ on error carry on! - 


One of the most powerful tools in your repertoire is ON ERROR GOTO... 
For instance, on first using a program, it may be necessary to 

DiMension: on further use the DIM instruction would create ERROR, 

unless reDIMensioned, which would destroy the contents of the variables. 
Again, you may have written a routine into the program, which on 

further development you would wish also to use a subroutine: if you 

insert RETURN for subroutine purposes then you create ERROR on the initial 
RUN. But you can use ON ERROR GOTO to hop over the DIM statement, or 
over RETURN. Nevertheless the use of this expression can be tricky. It 
remains in force until cancelled by another ON ERROR expression. 

Otherwise you could find that a further error will return you to a totally 
irrelevant sart of the program. If immediately after the ON ERROR 
expression you had a number of branches, then your program could 

become littered with cancellations. Of course you can always rewrite 

the program completely - if you have time! If your lines are rigidly 
numbered at regular intervals, perhaps something could be done like: 

1: ON ERROR GOTO 100 § 100: GOTO STATUS 4+10 - but even this can 
create problems, since STATUS 4 will represent the line before the 

line where the error occurred, if the error commenced the line; 

whereas if a statement in the line has been accepted, then STATUS 4 will 
represent the error line itself. The following routine will always 

just pass to the next line after the error line, however irregularly 

your lines are numbered. Lines 101 and 105 are optional. 


10: ON ERROR GOTO 100 


= 30898+PEEK 30899 

256*PEEK 30900+PEEK 30901 

BEEP 1: PAUSE "ERROR";PEEK 30875;" IN";L 
IF PEEK Q<>13 LET Q=Q+1: GOTO 110 
=256*PEEK (Q+1)+PEEK (Q+2): GOTO R 


How it works: PEEK 30900 and 30901 give (in 256ary) the line number 
which contained the error. PEEK 30898 AND 30899 give the actual address 
where the error occurred. Note that normally this address is usually 

the last memory location occupied by the unacceptable statement. 

PEEK 30875 gives the type of error - ERN (wrongly given in the Technical 
Reference Manual as ERL, which means ‘Error Line'). The routine, 

advised of an error, finds the error address, PEEKs along the line 

until End-of-Line marker 13, reads the next line number (from the two 
addresses following EOL), and goes to that line. 


You may like to experiment with the routine below. Key it in while the 
computer is attached to the CE 150, then separate them, and RUN the 
routine. Note that ERROR 1 (syntax error) will NOT be overcome by any 
ON ERROR GOTO instruction. And (in case you have forgotten) 

an ON ERROR GOTO (n) can be cancelled by ON ERROR GOTO 0. 


10: ON ERROR GOTO 100 
17: GRAPH 

19: A$(O)=1 

22: DIM A$(10): DIM A$(11) 

26: READ A$ 

27: RETURN 

38: DATA 1,2,3 

54: READ A$ 

63: GOTO 60000 

74: GOTO 700000 

99: BEEP 1,10,3000: PRINT "ERRORS OVERCOME": END 


- and then lines 100 to 120 from the routine above. 
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LETS WRITE A PROGRAM - V 


Last month we ended by suggesting that a chart should be made of the 
variables used. If you did so, you would immediately have spotted an 
anomaly: the use of A(F) in line 3020, which appears as A(3,7) in 

line 1000. So alter line 3020 to A(1,F). 1 have been disappointed that 

I have not received a single letter pointing out this error: it seems 
thet you are not taking @ very active interest in this series. 


The A(3,F) is so that the effect of bets, although calculated before 

the spin of the wheel is displayed, mzy nevertheless be held ‘in escrow! 
until all bets are completed. A(1,F) fer original capital. A(2,F) for 

the effect of staking. A(3,F) for the capital after adding or 

deducting A(2,F). And while we are about it, lets do the same for the 
bank. Otherwise a player's bets could 'break the bank' before the wheel 
is visibly spun: painful explanations might be called for. So in 

line 3040 alter variable B to A(1,0). We will keep A(n,0) for the bank. 


We ought to be looking back at the scheme we drew up. But lets do 2 

bit more coding. Have a go at RED OR BLACK. This subroutine will be 

used by 2 sections. It will be used with the calculation and display 

of the winning number. It may also be used by the graphics section, if 

we do a layout of the table. So we will put it outside the flow as 

designed. We will put it at 40000. Lets be a bit clever here. We can 

stert at 40000 by calculating also ODD OR EVEN, and COLUMNS and DOZENS. 
So for betting purposes we will enter the subroutine at 40000. For the 

graphics we can enter with RED OR BLACK at 41000. 


Now from 1 to 10 and from 19 to 28 all odd numbers are red, and even 
numbers black. For the remaining numbers the reverse is the case. We 
could deal with this by 37 IF statements. (Don't forget about ZERO). 
We could more economically deal with half the numbers, and let the rest 
have the opposite colour by default. But again we can try and be clever. 
Lets establish 2 conditions: a) within 1-19 or 19-28 and b) odd or even. 
(In fact we will already have had to establish the latter!). 

Surprisingly, we can also establish our colour without using a single 

IF statement, and compress this problem to a mere 72 bytes: it would 
go in a single line! But we will spread it out a little for the sake 

of clarity. Lets try it and see if it works. 


40499: FOR W=1 TO 36 

40500: "odd/even" E=(W/2=INT(W/2)) 

41000: "color" D=(W<11 OR (W>18 AND W<29)) 
41010: C=3*(D=E) § or is it 41010: C=3*(DOE) ? 
41020: COLOR C 

41029: LPRINT W; 

41039: NEXT W 


Test this: it could need changing a bit. When you have tested it, 
the lines 40499, 41029, 41039 can be deleted (though we shall need 
something like them when we come to do the graphics). And add: 


41050: C$="BLACK": IF C=3 LET C$="RED": RETURN 


We could probably even sort out this one without an IF statement: but 
here the process would waste space, not save it. 


That's enough, I think, for this month. Those of you who are really 
following this series may like to have a go at working out the columns 
and dozens. I don't propose to go into too much detail over these. 

But before we forget, ZERO! 


40000: IF w=0 LET C: C$="0": RETURN 
Next we will have a go at the really tough part: "PLACE YOUR BETS!" 
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PICOBASE by Mike O'Regan 


1) Make sure ROW I of RESERVE keys is operative. 


2) To 


start, key DEF [SPACE] 


3) When setting up 2 new database, answer the first prompt with "YES" 
written ir full. This will now CLEAR all memories and set DIMensions. 


F 


a datatase is already in memory, press any key to continue. 


4) You will row see ‘the MENU displayed. It is used as follows: 


key 1 
stars 


= ENTer ~ used to INPUT data (UPPER CASE UNLY, please). The 
indicate the acceptable length of each ALPHA field. To return to 


the MENU simcly press ENTER key when prompted for TITLE. 


key 2 


= AMD - (amend) - When pressed the prompt "Nunbe: 


is displayed. 


Key in the Record Number you wish to deal with. If you do not know this, 
you can interrogate the file by PRT or SCH. You,may anend any field by 
choosing T,C,S, or P, and then the old contents will be displayed on 
the left of the screen, and your new contents on the right. Return to 
the MENU by pressing ENTER key without an entry, at the 2nd prompt. 


key 3 


 ORDer - This key is used to re-arrange the order of records 


in accordance with the alphabetic order of the chosen ALPHA field. 


key 4 


- SCH - (search) -_ This key causes the prompt "Search String' 


You may enter a string of eny length, (UPPER CASE, please), and 
the program will search all fields for a match. For example, 

if one title was "KILLER GORILLA” and another had ACORN as the source, 
then if "OR" was your response to “Search String" , KILLER GORILLA and 


ACORN 


would both be selected. The selected files can then be printed 


(Screen or Printer) showing record numbers and details from the main file. 


key 5 
csize 


PRT - (print) - allows printing of the whole file on CE 150 in 
2. The PRICE fields are also totalled, and the total is printed. 


Finally, a dete/time/qroup unique reference is also printed. 

If the SCREEN option is selected, a prompt asks you for "speed". This 
is a WAIT tine: 50 is about 1 second. If you answer by speed 0, you must 
step through the file by ENTER key. Since the size of the display is so 
Limited, you mist also select ONE field only. The Record Nunber, Title, 
and the selected additional field (Category, Source, Price) will be 
displayed. These limits on Screen Display also apply to displays 
generated by SCH (key 4 - search). 


key 6 
NOTES 


~ TPE - (tape) - allows the file to be saved to or loaded from tape. 
: UPPER CASE must be used throughout. ERROR trapping has been 


omitted to avoid lengthening the program unduly. ERRORS will be caused 
if Row I of the Reserve Keys is not selected. You can recover from 
Teported ERRORs by pressing CL or BREAK key, without losing data,and 
re-enter the program either from the MENU, or by keying DEF [SPACE] 

‘This program was created to catalogue a collection of software for 

‘the BBC computer, but can easily be adapted for any other small database. 


5 
10 
20 
25 
26 
30 
40 
50 
60 
70 
80 
90 

100 
io 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


™ RESTATUS 2-STATUS 1-111 

POKE R,1,241,146, 34,90, 34,64,2,241, 146, 34,65,34,64,3,241,146, 34,85, 34,64 
POKE R+21, 4,241,146, 34,76, 34,64,5, 241,146, 34,68, 34,64,6,241, 146, 34,77,34,64 
BEEP 2: INPUT "CLEAR THE FILE-SURE???" 308 

IF _Q$Q"YES"THEN 40 

CLEAR :DIM T$(200)*14,C$(200)*2,5$(200)*5,P(200) ,CT$(0)*5,STS$(0)*5: 
WAIT :PAUSE "SELECT FUNCTION KEY":PRINT "ENT AMD ORD SCH PRT TPE" 
NZMINPUT " sexeeeeeexeee® TITLE ",T$(K) 

IF T$(k)=""THEN 40 

INPUT * ** Category ™,C$(K) 

INPUT * ***#® Source ",8S(K) 

INPUT "Price ";P(K 
soTO "2" 

L=0 

FOR Z=1T0 K-1 

IF T$(Z)<T$(Z-1)GOSUB 290 
NEXT Z 

IF L=1THEN 110 

BEEP 5:GOTO 40 


IF c$(2)<C$(Z-1)G0suB 290 

NEXT Z 

IF _L=1THEN 170 

BEEP 5:G0TO 40 

U0 

FOR 2-270 K-1 

IF S§(Z)<S$(Z-1)G0SUB 290 

NEXT Z 

IF LeITHEN 230 

BEEP 5:GOTO 40 

CLS :PAUSE "..Wait for pips, please": TT$=T$(Z):1$(Z)=1$(Z-1):T$(Z-2)=TT$zL=1 

CT$(0)=C$(Z) :C$(Z)=C$(Z-1 d=CT$(0) 

ST$(0)=5$(Z) =S$(Z)=5$(Z-1) :$$(Z-1)=STS(0) 

PT=2P(2):P(Z)=P(Z-1):P(Z-1)=PT 

RETURN 43 
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[PICOBASE continued 
“D"INPUT "SCREEN or PRINTER-S or P",Q$ 


340 CSIZE 2:FOR M=1TO K-21 

345 IF FFO1THEN 351 

346 FOR Y=110 14:1F SS$=MID$ (T$(M),Y,LEN SS$)THEN 351 
IDS (C$(M),Y,LEN SS$) THEN 352 

IDS (S$(M),Y,LEN SS$)THEN 351 


350 GOTO 360 

351 USING "###":LPRINT M;TAB (4);TS(M):LF 2 

360 NEXT M:LF 3 

370 USING "##88.88":FOR M=1TO K-1 

371 IF FFOLTHEN 380 

372 FOR Y=1T0 14:1F SS$=MID$ (T$(M),Y,LEN SS$)THEN 380 


373 IF SS$=MID$ (C$(M),Y,LEN SS$)THEN 380 


IDS (S$(M),Y,LEN SS$)THEN 380 


379 GOTO 390 

380 LPRINT C$(M);TAB (3)3S$(M)5TAB (8) 5P(M):TQ=TQ+P(M):LF 1 
390 NEXT M:LF 3 

400 LPRINT "TOTAL ";TAB (8);TQ:LF_1:TQ=0 

410 CSIZE 1:USING :LPRINT TIME :LF 6:FF=0:GOTO 40 

420 GOSUB 700:FOR M=1TO K-2 

421 IF FFOLTHEN 428 

422 FOR Y=1T0 14:IF SS$=MID$ (T$(M),Y,LEN SS$)THEN 428 

423 IF SS$=MID$ (C$(M),Y,LEN SS§)THEN 428 

424 IF SS$=MID$ (S$(M),Y,LEN SS$)THEN 428 

425 NEXT Y 

426 NEXT OTO 40 
427 GOTO 429 

428 GOSUB 800:PRINT M;" ;T$(M) 
429 NEXT M:FF=0:GOTO 40 

430 "H"INPUT "SAVE or LOAD (S/L) "508 
440 IF Q$="L"THEN 480 

450 PRINT "TAPE to RECORD-ENTER™; 

460 PRINT #K, T$(*),C$(*) ,S$(*),P(*) 
470 BEEP 1:PAUSE "RECORDED" :GOTO 40 
480 PRINT "TAPE to PLAY-ENTER"; 

490 INPUT #K, TS(*),CS(*),SS(*),P(*) 
500 BEEP 1:PAUSE "LOADED":GOTO’ 40 


"ses(v) 


510 “S"INPUT "ORDER BY (T,C or S) *: 
520 IF O$="T"THEN 120 


560 "AMINPUT “Number? *;NB 

INPUT "T,C,5 or P? "30S 
TMPAUSE T$(NB);:INPUT " New ";1$(NB):CLS =GOTO 570 
MCMPAUSE C$(NB) 3 


630 "LNINPUT "Search string ";55$ 
640 FF=1:T0=0:G0TO "D" 


700 INPUT " 


peed? ";3:WAIT JzIF J=0WAIT 
147(C/S/P) "VS 


a3" (VS="S" ase (V$="P") 
730 RETURN 
800 BS=C$(M)=C$=S$(M):DS=STRS PCM) 
810 RETURN 


MINDBOGGLE CORNER 
Only a couple of quickies this month. No prizes. 


How good are your abbreviations? You know them all? Are these valid? 
And what do they stand for? Try them and see. 


LL W. Sl S. LE. P. PE. SG. 1. G. TE. A. GR. GRA. TR. O. 


Next question: you are running a program. At a certain stage you get 
ERROR 1. And yet there is nothing wrong with the program! How could 
this happen? The answer is elsewhere in this issue. 
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Notes from David Rihoy, A.E.L.Cox, Mike O'Regan, & C.P.Underwood 


There are a number of valid syntaxes for INPUT statements; they may not 
all be well known. Below is a list of the main forms: 


INPUT A 
INPUT A,B,C 

INPUT ‘prompt",A 

INPUT 'prompt';A 

INPUT ‘prompt";A,B,C 

INPUT 'prompt",A,B,C 

INPUT ‘prompt a";A,"prompt b";B,"prompt ¢";C 
INPUT ‘prompt x",A,"prompt y",B,"prompt 2", 


The forms are equally valid for A$/BS/C$. Where a direct sequence of 
variables is separated by commas, these cannot be replaced by semicolons. 
The important difference between the use of a comma ofter a prompt, is 
that the prompt disappears while on entry is written, whereas with the 
semicolon the prompt and entry are both displayed. It will be seen that 
the repetitions of INPUT are unnecessary in the form: 


INPUT "prompt a";A: INPUT "prompt b";B: INPUT "prompt c";C 


With the multiple entries, you must be careful not to miss an entry. If 
you press the ENTER key without replying to the prompt, the later 
prompts, and other statements on the line, will be skipped. However, 

a little ingenuity con turn this limitation into an asset. 


99: INPUT “name";AS(J),"address";BS(J),"number";C(J): J=J+1: GOTO 99 
will demand consecutive entries. To escape from the sequence, ond 
continue the program, merely press the ENTER key without an entry. The 
following exomple permits the retrieval of information without 
disturbing the sequence: 


entry";AS(N): N=N+1: GOTO 30 
IN: GOTO 10 


GOTO 10 


Here the number of entries reached so far may be interpolated in the 
sequence, by pressing the ENTER key without an entry. Note that the 
previous entry will not be destroyed. In fact, on INPUT X or INPUT X$, 
if the ENTER key is pressed without an entry being made, then X or X$ 
will retain its previous value. 


Another useful technique is based on the length of the prompt. If the 
prompt is 27 characters long, (and the first 5 characters are SPACEs or 
MINUS SIGNS, etc) then the entry will appear at the beginning, not the 
end, of the prompt. For examples see lines 50 to 80 of PICOBASE, on 
page 43, where the technique is used as a guide to the number of 
characters permitted in each type of entry. It is of course essential 
that the length of the prompt be exact. 


It is often desirable to have changing information preceding a constant 
prompt, as in the following example: 


10: DIM AS(10): WAIT 0 
20: FOR N=1 TO 10 
30: PRINT "NUMBE! 
40: CLS: NEXT N 


Finally, a curious case of ERROR 1. This normally indicates a syntax 
error in the program itself. However if you reply to a prompt for a 
numeric entry with something that cannot have a value (e.g. a sign or 
puctuation mark) then ERROR 1 will appear. Pressing the red CL key 
will remove the ERROR and restore the prompt. 


INPUT " syour entry";AS$(N) 
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IMPROVEMENTS 


Here are the first of the long-promised ‘improvements’ to programs 
previously published. Not all the improvers can be identified, because 
of their reluctance to put their names on their programs. The routines 
are offered for your consideration: they are not necessarily recommended, 
nor have they all been exhaustively tested. 


title: cor 

original: RIC (vol.1, p-113) 

improved by: m7 

purpose: to indicate definitively whether ball hes been holed. 
comments may not coincide with visual, owing to ‘grephic slip’. 


255: GOSUB 7000 


500: "A" GLCURSOR (T,-TT):C=02H0=0 
7000: HO=HO+1: XC=PEEK &79E1: IF PEEK &79E0 LET XC=XC-256 
7005: YC=PEEK &79E3: IF PEEK &79E2 LET YC=¥C+256 


7010: IF ABS (XC-(H1+3.5))<3_AND ABS (YC~(H2+3.5))<3 BEEP 5: GLCURSOR 
(0,-1T-50*8-50): GOTO 7020 

7015: RETURN 

7020: WAIT 10: PRINT “HOLE IN";HO: LPRINT "HOLE IN";HO: GLCURSOR 
(0,-1T-50*8-200)= END 


title: ‘SCREEN-DUMP 

original: C.SIMPSON (vol.1, p.77) 
improved by: HeHSHEINE 

purpose: choose size of print-out. 
execute by: DEF SPACE 


10: " "CLEAR: S=STATUS 2: FOR I=S TC $+155: POKE I,POINT (I-S): IF 
POINT (T-S) LET T=! 

20: NEXT I: T=T-6: WAIT O: REM cursor suppression 

30: "SZ" CLS: INPUT *which size 2-28 2 "; SZ: IF SZ<2 OR $7228 GOTO "SZ" 

40: FOR I=S 10 T: GPRINT PEEK I: NEXT I: GRAPH: GLCURSOR (110+S7*3.5,0): 

‘SORGN: FOR 1-0 TO T-S: K=O: GLCURSOR (0,-SZ): SORGN 
50: FOR Y=0 TO 6: : IF HAND POINT I LINE (K,~SZ)-(K-SZ,-2*SZ), 8 
60: K=K-SZ-1: NE NEXT I: WAIT: TEXT: LF 7: BEEP 1,100,100: END 


subroutine 3 PASSWORD by Pete Eldridge 


This routine is extracted from the cassette-indexing program mentioned 
on page 3. Unless the PASSWORD is entered correctly it is impossitle to 
proceed with the program. C$ in line 1 should be written into the 
program, and may be any word up to 16 letters (upper-case only). When 
the password is entered correctly, the time and date are displayec. To 
continue, press first the red CL key, and then the RCL key. 


: ARUN: CLEAR: LOCK: WAIT O: POKE# 61453,128: C$="PASSWORD": FOR P=1 
TO LEN C$ 

2: PRINT" Password >";B$;" 

: BEEP 1: B$=B$+A$: NEXT P: IFB! 

: GOTO 1 

T=TIME, A=INT (1/100), B=T-(A*100), C=INT (A/100), D: 

PRINT “ready";D;C;" 84";USING "WHHA##.#HHI" 3B: USING: A$=INKEY$: 


IF A$="" GOTO 5 

: IF ASC A$=24 GOTO 10 
GOTO 5 

9: END 


PRINT CHR$ O: IF ASC INKEY$ <>25 GOTO 10 
[proceed with main program] 
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PROBE! software review 


This fascinating program is a disassembler. It is enthusiastically 
recommended to anyone delving into machine-code. I have encountered 
several disassemblers: this is certainly the most helpful and 
user-friendly. It is also affordably priced. 


You answer the prompt with a Start Address. You are also asked to give 
information about flipflop settings, and which memory bank (MEO or ME1) 
you wish to explore. The instructions make entirely clear how you 

should answer these prompts. The CE 150 prints out a record of your 
settings: and then PEEKs successively at memory locations from the 
start address onwards, translating the code in each location into the 
correct Assembly Language code. Cleverly, where a code is followed by data 
(addresses, etc.) the data is given numerically. But you must be 

careful to choose a valid Start Address. If you pick an invalid one, 

you could find data printed as code! In any case, you will have 

printed out a totally spurious routine. Memory locations are printed 

for the Start Address, and then every 16 locations. In the case of 

jumps, the address jumped to is also given. 


Because this is the marvellous advantage of this particular 

dissassembler. The ROM of the PC 1500 is convoluted, and there are 
many vector jumps. With PROBE you may instruct the program to actually 
follow these jumps, and print out the ROM routine in the order in 

which it works! You can always disregard this option if you prefer. 


It can of course also be used on user m/c routines. It will 

make the printing of readers' m/c routines much easier: I shall 
no longer have to worry so much about explaining them: you can 
just use PROBE on them to find out how they work. 


To get the best out of PROBE the Technical Reference 

Manual is essential. This contains most of the Start Addresses for 
subroutines in ROM. I also found helpful page 61 and page 72 of 
STATUS 1500 (vol.1) to refresh my memory as to the meaning of certain codes. 
Otherwise, the 4 pages of instructions, clearly printed and laid out, 
which accompany the cassette, are all that is required. The program is 
easy to use; though to make use of its output requires intelligence 

and concentration. Fortunately, an appendix to the instructions 

explains in greater detail the difference between conditional 

branches (which are not followed) and conditional jumps (which may be 
followed optionally). It is not the duty of a program such as PROBE to 
give lessons in what machine-code routines are all about - but they 
may have been welcome all the same! Quite a lot of helpful 

backgound is indeed given. However I was slightly puzzled 

by one or two expressions, although their general meaning was apparent. 


I have used the program successfully to disassemble the CE 158. I have 
also used it to attempt to disassemble the TRAMSOFT TOOL-2, without 
success. The code of this module is accessible to PEEKing: but gives 
ERROR messages to PROBE. I wonder why? PROBE will give such a message 
when a Start Address is given containing CHR$ 255. A facility which 
searched for the next valid address could have been helpful. But the 
program is already 9K long, and any elaboration would hardly leave 
room for any routines to be inserted for examination. Apart from a 
preliminary routine in m/c, PROBE is in BASIC. The program is 
ingenious, but quite transparent: so it would not be difficult to add 
minor tweaks of your own. If you should do so, avoid the use of 
variables P$, Q5, & R$, since their locations are occupied by PROBE's 
own machine-code routine. 


PROBE! is by F.C.ODDS, 20 St.Philips Road, Leicester, at £7.50 


Do not sell this PDF !!! 
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SUPERTEXT (B) 
A very friendly Word-Processing program for PC 1500. 
Designed for use with CE 161 and daisywheel or dot-matrix printer. 
Limited use with CE 150 and 8K module. 
Developed from original SUPERTEXT - almost all original commands retained. 
CLEAR DETAILED INSTRUCTIONS - LLISTING - SUPPORT 


A host of new features- 
- and the old ones now streamlined - 


jable linewidth. 
DIMensioning to memory. 
Automatic location of RESERVE. 
Automatic word-wrap. 
Automatic space ar 
L 


Quotation marks. 
Apostrophes. 
Non-keyboard characters. 
ated characters. 


7 


De-justitication, 
Reformatting to different linewidth. 
and paragraph deletion. 

raph “Insertion. 


th while editing. 
‘Margin’ for Print Instruction C eaves text lines free for text. 
Repeat facility for Print | instructions, 
Straight or ‘draft’ printout. 
Retains CE 150 horizontal printout. 
Automatically selects TRAMSOFT TOOL-2 I 


icl 
103 Lines of text with CE 161 - with CE 150 and 8K from 13 to 28 lines. 8 ie 
-efora. 


£13.95 Inclusive of post and packing In UK. (overseas: add £2 p. & p.) 


“Introductory offer: 
If you already possess original SUPERTE: 
"£6 + pe & p. ( UK £1 - 


Please make cheques etc. payable to:- STATUS 1500 SOFTWARE 
* STATUS 1500 is now produced entirely with SUPERTEXT (B). * 


nly pay the difference! Send 
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